40 Saw Mill River Road 
Hawthorne, New York 10532 
914/WHite Plains 9-1900 



International Business Machines Corporation 



April 20, 1966 



MEMORANDUM TO: 



Users of IBM 1620 Drafting System 
1620-CX-04X 



SUBJECT: 



Version 1, Modification Level 1 



This modification has been prepared for users of the 1620 Drafting System 
and contains improvements and corrections for the following parts of this 
program: 

1. Circles of small radii are drawn with irregular sized dots or dashes 
when such a line class is specified. For a given number of increments a 
line drawn at 45 degrees is longer than one drawn at zero or 90 degrees, 
therefore, the lengths of the dashes vary at different parts of a circle. 

2. It has been reported that the DIMCR statement is ineffective for small radii. 
To obtain the proper drawing the user need only change the DIMP statement 
so that the arrow and text are located outside of the circumference of 

the circle. A proper statement would be DIMP/ 2. 2, . 1, 1,0. 

3. The statement "DRAW/MIRY (shape)" works improperly. Please see 
description of program changes attached which shows the correction to 
this error. 

4. Incorrect error messages print out during dimensioning in Phase 3. 
The message is 306 and indicated that the dimensioning is out of limits 
on the drawing but actually it is not. 

5. The statement: POINT/ point, TANTO, circle fails to determine the point 
of tangency whenever the line so formed would be nearly vertical. DIM 
number 0826 has been completely rewritten to prevent this error condition. 

6. The compiler does not recognize the occurrence of dollar signs in a Macro 
definition. This has been corrected. 

This modification consists of the following: 

1. Description of program changes - 3 pages 

2. 80/80 listing of object deck replacement cards - 1 page 

3. Replacement page 3 to the Application Directory - 1 page 

4. System Manual replacement pages 577 thru 584 - 3 pages 
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5. Object Deck Replacement Cards 

Object Deck Number 4-2 cards 
Object Deck Number 21 - 1 card 
Object Deck Number 31 - 1 card 
Entire Object Deck Number 16 - 20 cards (18 cards preceded by 2 control cards) 

Future recipients of the program subsequent to the date of this letter will 
receive the various decks with the changes noted above already incorporated. 

Any discrepancy between the material received and the list above, as well as 
any errors in card reproduction, should be directed to: Manager of DP Program 
Information, IBM Corporation, 40 Saw Mill River Road, Hawthorne, New York 10532. 

We appreciate your cooperation in making the enclosed changes and request 
the continued use of the Aithorized Programming Analysis Report (APAR), 
submitted through your local IBM Systems Engineer, in reporting difficulties 
concerning this program. APAR's for this programming system should be 
sent to: APAR Processing, DP Application Programming Standards, 112 East 
Post Road, White Plains, New York 10601. 



PROGRAM INFORMATION DEPARTMENT 



tm 
cc: 



Branch Office SE Managers 
(No Enclosures with Br/ Office 
Copies) 



DESCRIPTION OF PROGRAM CHANGES 



1- Circles of small radii are drawn 
with irregular sized dots or dashes 

when such a line class is specified. j f^^S. \ / 



The figure to the right shows results 

for such circles of .25 and .50 \ ^ ' \ \^ J j DOTTED 

radii. While the results may not be ^""^nA^HFn ^ " ^ 

optimum, the drafting system is 
working as designed. This condition 
is explained on page 190 of the 
System manual. For a given number 
of increments a line drawn at 45 
degrees is longer than one drawn 
at zero or 90 degrees, therefore, the 

lengths of the dashes vary at different parts of a circle. 



2- The DIMCR Statement is ineffective 
for small radii. 

The DIMP is used to prevent the 
problem described above. On page 
196 of the System manual, Figure 29 
shows that arrows are drawn from 
the extension lines to the points 
(AFX, AFY)and (ATX, ATY). If the 
length of the text is greater than the 
space between the extension lines, 
then the points fall outside of the 
extension lines and the arrows are 
automatically reversed by the 
drafting system. 

To obtain the proper drawing, the 
user need only change the DIMP 
statement so that the arrow and text 
are located outside the circumference 
of the circle, a proper statement 
would be : 

DIMP/2. 2, . 1, 1, 

Results of such a change are shown 
in the figure to the right of this 
information. 
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3- The statement: DRAW/MIRY (shape) works improperly. 

In DIM number 0831 change the following statement on page 6 16 of 
the listings: 

From: 20970 TFM MODES-3, 10 17018 16 06857 -0010 

To: 20970 TFM MODES-3, 10, 10 17018 16 06857 000J0 

4- The drafting system produces an error message that dimensioning is 
out of limits if the programmer rotates a drawing using the ORIGIN 
statement and attempts to produce a dimension line which is not in 
the first quadrant of the nonrotated drawing. 

The error condition cannot be entirely corrected within the present 
version of the drafting system. Temporarily, the following restriction 
will be in effect: An ORIGIN/ NO MORE statement must be written 
preceding any origin statement which follows an ORIGIN statement 
that has rotation. 



For example, the following sequence of statements can cause the error 
condition: 

ORIGIN/5, 6,ATANGL, -90 
Other drafting statements 
ORIGIN/ any form 

To cause proper drawing, change the statements to read: 
ORIGIN/ 5, 6 } ATANGL, -90 
Other drafting statements 
ORIGIN/ NO MORE 
ORIGIN/ any form 

In DIM number 0860 change the following statement on page 727 of 
the listings: 

From: 05840 DIMER BTM ERLST, *+13 13704 17 06626 J3717 

To: 05840 DIMER B D1280-12 13704 49 13736 J3717 

5- The statement: POINT/point, TANTO, circle fails to determine the 

point of tangency whenever the line so formed would be nearly vertical. 

DIM number 0826 has been completely rewritten to prevent the error 
condition. Please replace pages 578 through 584 of the listings with 
the three (3) pages that follow these program change descriptions. 

Page three (3) of the Application Directory, should also be changed 
after the entry for deck 16. Please change the amount of cards from 
30 to 18 cards in the third column on the page. (Please Note: the 
change deck has 20 cards - 18 object cards + two (2) control cards. 
This is expalined on page two (2) of the Directory in the next -to -the - 
last paragraph). 
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6- The compiler does not recognize the occurrence of dollar signs in a 
MACRO definition. 

In DIM number 0813 change the following two (2) statements on pages 

499 and 500 of the listings: 

From: 10285 CM E, 34, 10 14242 14 06249 000L4 

To: 10285 CM E, 13, 10 14242 14 06249 000J3 

From: 10600 CM E+2,34, 10 14858 14 06251 000L4 

To: 10600 CM E+2,13, 10 14858 14 06251 000J3 
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80/80 LISTING of OBJECT DECK REPLACEMENT CARDS 



OBJECT DECK NUMBER 31 See (A) Below 

m72KK444136921165549137040000OZJ3692KL44413736116664913736J3717M572737075000|74l 

OBJECT DECK NUMBER 21 See (B) Below 
J6990KK2068570000127 17078 16987ZJ7018K.K41606857000J0271707817017ZJ7048K03160000I2C 



OBJECT DECK NUMBER 4 See (C) Below 
J4197K076249000K34614182012001406249000KIU614654012001406249000J34614858012000|04 



J4868KO7J34614654012001706560J4X941215121000O526027311512126024570273111024000 



OBJECT DECK NUMBER 16 



15 



ZZDUP 

*DLOAD 0826 * 1569400796CM - 

J5694KJ0J6280J5710ZJ5710KM831063460630527128741570R3106254062951 1157090000100001, 
J5758K0725066801570R11157090000131063670626431063870634631062850636717097340000^ 
J5825KO70000031065530631517024580626346158900110016073290P0762707252157093100003 
J5892K0706285063671709922000001702608065623 11664606315170998400000 17026080600C04 
J5959K0756231 166350631517 1004606263170260806562310653106315170255806324170200005 
J6026KN644606240 17027 12063243 1065420631 5 1002375 J6077490234NOOOOOZJ6077K020600006 
J6079K0926306263ZKN5 31063 1506.553170255806324170245806263 170271206324310655300007 
J6143K07063 15 170255806540 31 1665706315310631506553170255806551 31 166670631 54400008 
J6210K07162320668032 1666400000 1716340 J6244310628516689310630506346491570R0000C09 
J6277K070003 106254062952712490 1627R3106346063052615709 162794915746000003 11600C 10 
J6344KL2678 16667 1002375 J6 371490234N00000ZJ6371KJU6687J6644ZKJ23i 16689 16657000 11 
J6394KK41O02375J6413490234N00000ZJ6413KJ1J6698J6655ZKK01O02375J64434902350000012 
J6444KO40O00ZJ6443KJ1J669806355ZKK41O02375J6473490235O000O0ZJ6473KO7J6698J600013 
J6480K04687ZKM8261668716666261668516664 1002375 J6527490234N00000Z J6527K03 J66DO0 14 
J6530K0887J6644ZKK41002375J6557490234NOOOOOZJ6557KJ1J6708J6655ZK091002375J600015 
J6577KJ5587490235000000ZJ6587KJlJ670806365ZKK41OQ2375J66174902'35N00000R000000016 
J6617KJ1J6708J6687ZKJ2491633R00000ZJ6688K01ZZJ6710O00Z0600000000 - 17 

R9999Z00000000000 ' • 16J 

Discard the present object deck number 16/replacing it with the deck listed above 
and enclosed. Perform a Disk Utility Program to delete DIM number 0826. Load 
the new deck number 16 onto the disk. 

(A) Replace card number 74 of object deck number 31 with the change card shown above and 
enclosed. Perform a Disk Utility Program to delete DIM number 0860. Load the corrected 
version onto the disk. 

(B) Replace card number 20 of object deck number 21 with the above change card. Perform a Disk 
Utility Program to delete DIM number 0831. Load the corrected version 0831 onto the disk. 

(c) Repla.ce cards numbered 04 and 15 of object deck number 4. Perform a Disk Utility Program 
• to delete DIM number 0813. Load the corrected version of 0813 onto the disk. 
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Deck 
Number 



Program 

Dim 

Number 



Number of 
Cards 



7 


0819 


10 


8 


0838 


13 


9 


0839 


9 


10 


0820 


16 


11 


0821 


10 


12 


0822 


149 


13 


0823 


20 


14 


0824 


37 


15 


0825 


34 


16 


0826 


18 Zl 


17 


0827 


11 


18 


0828 


36 


19 


0829 


30 


20 


0830 


16 


21 


0831 


32 


22 


0832 


35 


23 


0833 


38 


24 


0834 


13 


25 


0835 


40 


26 


0848 


37 


27 


0849 


24 


28 


0840 


74 


29 


0841 


8 


30 


0850 


180 


31 


0860 


188 


32 


0861 


42 


33 


0870 


65 


34 


0871 


23 


35 


0872 


53 


36 


0873 


64 



CONTROL CARD DECKS FOR CONVERSION TO CORE IMAGE 

The three control card decks listed below contain the necessary data to convert 
the three subprograms which use floating-point subroutines into core image 
format. None of the cards have sequence numbers. 
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Deck 
Number 



Associated 
Dim Number 



Number of 
Cards 



37 
38 
39 



0841 
0821 
0820 



8 
9 
9 



SAMPLE PROBLEM DECK 

Deck number 40 is the sample problem deck. It contains two unnumbered 
control cards followed by 73 source statement cards numbered from 01 to 73 
in card columns 79 and 80. 

OPTIONAL PROGRAM MATERIAL - SOURCE DECKS 

The source decks have sequence numbers in card columns 1-5. Card columns 
77-80 contain the four-digit dim number for the program. 



Deck 


Dim 


Card 


Number 


Number 


Counl 


1 


0810 


1455 


2 


0811 


559 


3 


0812 


576 


4 


0813 


147 


5 


0814 


166 


6 


0818 


7 


7 


0819 


57 


8 


0838 


97 


9 


0839 


57 


10 


0820 


80 


11 


0821 


30 


12 


0822 


1078 


13 


0823 


154 


14 


0824 


209 


15 


0825 


235 


16 


0826 


193 


17 


0827 


95 


18 


0828 


298 


19 


0829 


218 


20 


0830 


121 


21 


0831 


297 


22 


0832 


225 


23 


0833 


278 



* Approximate 
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The 1620 Drafting System 



Phase 2 



DIM No 0825 



21175 ARKLIN 
21180 



DSS 
DEND 



4*LL+1 
00796 



PAGE 6 

17730 00041 
00796 



17772 CORE POSITIONS REQUIRED 
00235 STATEMENTS PROCESSED 



k-k- k - k - k - k - k - k -k-k- k -k- k -k- k -k- k -k 

*PAGE 577 * 
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(ID) *«THE 1620 DRAFTING SYSTEM 
ID NUMBER0826 
ERROR STOP 
MU SUBROUTINES 



PHASE 2 



DIM NO 0826 



THE 1620 DRAFTING SYSTEM 



PHASE 2 



DIM NO 0826 



PAGE 



20010 
2 0015 
2 002 
2 0025 

20035 
2 0040 
20045 
2005 



*«»ID NUMBER 0826 
•••LOAD ON CALL FROM PHASE TWO 
•••CONTAINS POINT TANTO CIRCLE 
•MAINLINE EQUIVALENCES 
•PART PROCESSOR EQUIVALENCES 



20295 
20300: 
20305 

20310* 

20315*P0INT 

20320 

203*25 PTAC 

20330 

20335 

20340 PTACA 

20345 

20350 

20355*CHECK 



SCSUB 


DS 


,02458 


02458 


00 000 


SCMUL 


DS 


,02558 


02558 


00000 


SCDIV 


DS 


,02608 


02608 


00000 


SCRUT 


DS 


,02712 


02712 


00000 


L 


DS 


,00009 


00009 


00000 


WKA 


DS 


,06540 


06540 


00000 


WKB 


DS 


,06551 


06551 


00 000 


WKC 


DS 


,06562 


06562 


00000 


SCACC 


DS 


,06324 


06324 


00 000 


LN1 


DS 


,06285 


06285 


00000 


LNA 


DS- 


,06367 


06367 


00000 


PT 


DS 


,06346 


06346 


0000 


PT1 


DS 


,06305 


06305 


00000 


PT2 


DS 


,06285 


06285 


00000 


PT3 


DS 


,06264 


06264 


00 00 


PTA 


DS 


,06387 


06387 


00000 


R2 


DS 


,06263 


06263 


00 00 


MESPE 


DS 


,07321 


07321 


00000 


KF1P 


DS 


,06240 


6240 


00 00 


SWLR 


DS 


,06680 


06680 


00000 


DIST 


DS 


,09734 


09734 


00000 


PPERR 


DS 


,07252 


07252 


00000 


SCTAC 


DS 


, 10046 


10046 


00000 


DXOF 


DS 


,09922 


09922 


00000 


DYOF 


DS 


,09984 


09984 


00 00 


GETCR 


DS 


,12874 


12874 


00000 


CR1 


DS 


,06295 


06295 


00 000 


CR2 


DS 


,06254 


06254 


00000 


CORE 


DS 


,15694 


15694 


00000 


LL 


DS 


,10 


00010 


00000 


GETPT 


DS 


,12490 


12490 


00000 


YY1 


DS 


,06355 


06355 


00000 


XXI 


DS 


,06365 


06365 


00000 




DORG 


CORE 


15694 




INDIRECT ENTRIES 








DSA 


PTACR,PTAC 


15698 
15703 


00005 
00005 



TANTO CIRCLE 












DS 5 




15708 


00005 




TR PT,PT1 ,,, 


SAVE THE POINT 


15710 


31 


06346 


06305 


BT GETCRf PTAC-1, 11 


,»,GET THE CIRCLE 


15722 


27 


12874 


1570R 


TR CR2,CR1 ,,, 


SAVE THE CIRCLE 


15734 


31 


06254 


06295 


AM PTAC-1, 1 ,i, 


SET MODIFIER ADDR 


15746 


11 


157 09 


-0001 


TD SWLR, PTAC-1, 11 


PUT MODIFIER INTO SWLR 


15758 


25 


06680 


1570R 


AM PTAC-1, 1 ,,, 


SET EXIT ADDRESS 


15770 


11 


157 09 


-0001 


FOR VALID POINT 












TR LNA,PT3,, .CIRCLE 


CENTER 


15782 


31 


06367 


62 64 


TR PTA, PT, , .OUTSIDE 


POINT 


15 794 


31 


06387 


06346 
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i ilh 1620 DRAFT IMG SYSTEh 



PHASE 2 DIM NO 0826 



PAGE 





TK 


LN 1 » L N A t » » LUAL) Z PL) IN IS 


15806 


3 1 


6 285 


6367 




RTM 


D 1ST ,0 , , f CALC DIST PT-CTR 


15 818 


17 


09734 


-0000 




TR 


WKC-L » SCACC-Lt » » SA VE DPC 


15830 


31 


6 553 


0631 5 




BTM 


SCSUB»R2» » »SUB RADIUS 


15842 


17 


02458 


-6263 




BH 


*+36 


15854 


46 


15890 


01 100 




TFM 


MESPE+8 ,7076» 8t » PT INSIDE CR 


15 866 


16 


07329 


0P076 




BT 


PPERR t PTAC-1 »t» ERROR EXIT 


15 878 


27 


07252 


15709 




TR 


LNlf LNA, t tRELOAD POINTS 


15890 


31 


62 8 5 


06367 




BTM 


DXOF t » » »X COMP 


15902 


1 7 


09922 


-0000 




BTM 


SCDI V, WKC » » » DX/ DI ST 


159 14 


17 


26 08 


-6562 




T D 
1 K 


c n c t t crArr_i pncTMC cod diitatc 


1 R O O A 


31 


16 646 


06315 




BTM 


r~\ \i (— 1 1 — r\ \i /. n im n 

uYUr tUtMi Lunr 


1 59 3 8 


17 


09984 


-0000 




Q T M 
D 1 M 


crriT\/ uis r nv / m c t 




17 


2 608 


-6562 




T R 


S INT-L t SCACC— Lt f » SI Nh Ur RUTATh ANGLt 


1 59 62 


31 


16635 


06315 




B TM 




137 ft 


17 


10046 


-62 63 




B TM 


SLU1 V» WKC 


1 598 6 


17 


02608 


-6562 




i rs 


ukA-i .<;rArr-i .«.?ina 

W in A L|Ol/MLU LM)Jl'*« 


1 S QQ R 

i v y o 


31 


06531 


06315 




D i It 




1 AD 1 O 
1 OU 1 u 


17 


02558 


-6324 




R TM 
D 1 rl 


QTQIIR — 1 9.KF1 P . . _ 1_ C TWA**? 


i An?? 


17 


2 446 


-6240 




R T M 
D 1 rl 


QrpiiT.<;rArr.. .cnoTi i — <;tima**o\ 

OUrsUI f jUALO 1 f f o W K 11 1 oINH'^lI 


1 AD ^ 
1 OU D t 


17 


02712 


-6324 




T D 
1 K 


ui/n.i QTArr.i . r n q a 

WISD L»oLAl.L> Ltftl»UoA- 


1 AD AA 

1 ou to 


31 


06542 


06315 




C M 

rrl 


DODO 


i ah r q 
1 OU o ti 


10 


02375 


J6077 








1 60 70 


49 


2 34N 


00000 








1 60 7 7 


00005 -6263 








1 60 82 


00005 -6263 








16087 


0000 1 a 






TR 


SCACC-Lf WKC-L 


1 60 88 


31 


.06315 


06553 




BTM 


SCMULtSCACC 


16100 


17 


02 558 


-6324 




BTM 


SCSUB t R2 


16112 


17 


02458 


-6263 




BTM 


SCRUT»SCACC 


16124 


17 


02712 


-6324 




TR 


WKC- L» SCACC- L» » t LEN 


16136 


31 


06553 


06315 




BTM 


SCMUL » WKA » r » LEN*S INA 


16148 


17 


02558 


-6540 




T D 


KUTY— L t oLALL—L t ♦ t Y r 1 


1 6 1 60 


31 


16657 


06315 




T R 


SCACC-L» WKC-L 


16172 


31 


06315 


06553 




BTM 


SCMULt WKB» » LEN*C0SA 


1 61 84 


17 


02558 


-6551 




T D 
1 K 


DflTY — 1 QTArr—l . YD T 


1 £ 1 Qi 

i o i y o 


31 


16667 


06315 




BNF 


« i OA C I.I 1 D QD ICCT f AMrCMP^/ 

* + <£H» b WLK » » t BK Lfcr 1 .lAlMbklNLY 


1 620 8 


44 


16232 


06680 




SF 


DDTV — 9 . . - CCT V MTMIIQ- 


i a o o n 


32 


16664 


000 




BTM 


DnTAT. *J.l O 
KU 1 A 1 t * + i- £- 


1 A O "2 O 


17 


16340 


J 62 44 




TR 


PT? . ROT AY — 1 


16244 


31 


06285 


166 8 9. 




TR 


PT1,PT 


16256 


31 


06305 


06346 




B7 


PTAC-1 tt6 


16268 


49 


157 OR 


00 000 


20565 


DS 


5 


16279 


00005 




20570* 














20575 PTACR 


TR 


CR2 f CRl »t»SAVE THE CIRCLE 


16280 


31 


06254 


06295 


20580 


BT 


GETPT,PTACR-1,11 t » » GET THE POINT 


16292 


27 


12490 


162 7K 


20585 


TR 


PT,PT1 ,,,SAVE THE POINT 


16304 


31 


06346 


06305 


20590 


TF 


PTAC-ltPTACR-1 MOVE. LINKAGE ADDRESS 


16316 


26 


157 09 


162 79 


20595 


B7 


PTACA »»»T0 COMPLETION 


16328 


49 


15 746 


00 000 


20690* 














20695*R0TATES A 


POINT ABOUT AN ANGLE THRU THE CENTER PT 










20700 


DS 


5 


16339 


0000 5 




20705 ROTAT 


TR 


ROTT-Lt R0TX-L 


16340 


31 


16678 


16667 


20710*NEW Y 


=YT+Y 


*C0S+X*SIN 
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THE lo20 DRAFTING SYSTEfi 
2U7 15 Fh ROTT, SI NT 



PHASE 2 



D 1 1-1 imQ 0826 



Zu'/Z [> 



20730 



20735 



TR ROTAY-L, ROTY-L 
F.'-i ROTAY, COST 



FA ROTAY , YY1 



FA RQTAY,ROTT 



2 0740 *N El* X=XT+X*C0S-Y*SIN 
20745 TF ROTT , ROTY 

TF R0TT-2,R0TY-2 



2u750 
2075b 



2U760 



20765 



20770 



20775 

20780 SINT 
20785 

20790 COST 
20795 

20800 ROTY 
20805 ROTX 
20810 

20815 ROTT 
20820 



ROTT, SI NT 



FH RO TAX, COST 



FA R0TAX,XX1 



FS 



B7 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DC 



ROTAX , ROTT 



ROTAT-1,,6 

LL 

1 

LL 
1 

LL 
LL 
1 

LL 
If • 



THE 1620 DRAFTING SYSTEM 

20825 ROTAY DS LL 

20830 ROTAX DS LL 
20835 DS 1 

20970 DEND 00796 

16710 CORE POSITIONS REQUIRED 
00129 STATEMENTS PROCESSED 



PHASE 2 



DIM NO 0826 



PAGE 

16352 
16364 
16371 
16376 
1638 1 
16382 
16394 
16406 
16413 
16418 
16423 
16424 
16436 
16443 
16448 

16453 
16454 
16466 
16473 
16478 
16483 

16484 
16496 
16508 
16520 
16527 
16532 
16537 
16538 
16550 
16557 
16562 
16567 
16568 
16580 
16587 
16592 
16597 
16598 
16610 
16617 
16622 

16627 
16628 
16644 
16645 
16655 
16656 
16666 
16676 
16677 
16687 
16688 



10 02375 J6371 
49 2 34N 00000 
00 005 J 668-7 
00005 J6644 
0000 1 o) 

31 16689 16657 
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0000 5 J 6698 
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0000 1 oi 
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00005 -6355 
00 001 y 
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00005 J6698 
00005 J6687 
0000 1 a 

26 16687 16666 
26 16685 16664 
10 02375 J6527 
49 02 34N 00000 
00005 J6687 
00005 J6644 
0000 1 a 

10 02375 J6557 
49 234N 00000 
00005 J6708 
00005 J6655 

00 001 a 

10 02375 J6587 
49 02 35- 00000 
00005 J6708 . 
00005 -6365 

00001 a 

10 02375 J6617 
49 023 5N 00000 
00005 J6708 
0000 5 J6687 

00 001 5) 

49 1633R 00000 

00 010 

0000 1 

00010 

0000 1 

00010 

00010 

00 001 

00010 

00 001 



16698 00010 

16708 00010 

16709 00001 
00796 
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